import "mod_draw";
import "mod_key";
import "mod_map";
import "mod_math";
import "mod_proc";
import "mod_grproc";
import "mod_screen";
import "mod_text";
import "mod_file";
import "mod_video";
import "mod_debug";
import "mod_say";
import "mod_sound";
import "mod_wm";
import "mod_rand";


CONST

	SCREEN_X		= 640;
	SCREEN_Y		= 480;
	SCREEN_DEPTH 	= 16;

END

GLOBAL
	
	int ventana;
	
	int png_cursor;

END


include "prg/windows.prg"



//---------------------------------------------------------------------------------------
BEGIN

	set_title("GUI Tests - Creacion de Ventanas");
	set_mode(SCREEN_X, SCREEN_Y, SCREEN_DEPTH, MODE_WINDOW + MODE_WAITVSYNC);
	set_fps(60,0);
	write_var(0,0,0,0,fps);
	
	
	png_cursor = load_png("img/cursor.png");
	mouse.graph = png_cursor;


	// creo una ventana y la muestro en pantalla
	ventana = win_draw(200, 150);
	screen_put(0, ventana);

	LOOP
	
		IF ( key ( _esc ) )
			exit();
		END
		
		IF ( key ( _enter ) )
			// descarga la ventana y crea una nueva
			map_unload(0,ventana);
			ventana = win_draw( rand(50,SCREEN_X), rand(50,SCREEN_Y) );
			screen_clear();
			screen_put(0, ventana);
			
		END
		
	
		frame;
		
	END
	
END
